home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / g_init2.has < prev    next >
Encoding:
Text File  |  1998-08-30  |  2.6 KB  |  159 lines
  1. *--------------------------------
  2. *
  3. *    âfü[â^ü@âìü[âh
  4. *
  5. *    By Shiroh Nakaya
  6. *
  7. *--------------------------------
  8.  
  9.     .include    B:\INCLUDE\DOSCALL.MAC
  10.     .include    B:\INCLUDE\IOCSCALL.MAC
  11.  
  12.     .include    OSU.H
  13.  
  14.     .xdef   data_load
  15.  
  16.     .xdef    pcg_data
  17.     .xdef    pal_data
  18.     .xdef    adpcm_data
  19.  
  20.     .xref    _apic_load
  21.  
  22.     .text
  23.     .even
  24. *--------------------------------
  25. *    âüâéâèâìü[âh
  26. *
  27. *    ê°ÉöüFé`éPüüâtâ@âCâïâlü[âÇ
  28. *    ü@ü@ü@é`éQüüô]æùɵéqé`él
  29. *    ü@ü@ü@écéQüüâtâ@âCâïâTâCâY
  30. mem_load:
  31.     move.w    #0,-(sp)
  32.     pea.l    (a1)
  33.     DOS    _OPEN
  34.     addq.l    #6,sp
  35.     move.w    d0,d1
  36.  
  37.     move.l    d2,-(sp)
  38.     pea.l    (a2)
  39.     move.w    d1,-(sp)
  40.     DOS    _READ
  41.     lea.l    10(sp),sp
  42.  
  43.     move.w    d1,-(sp)
  44.     DOS    _CLOSE
  45.     addq.l    #2,sp
  46.     rts
  47.  
  48. *--------------------------------
  49. *    Åëè·ë╗âïü[â`âô
  50. *
  51. data_load:
  52.     moveq.l    #1,d1                * âüâbâZü[âWò\Ī
  53.     moveq.l    #8,d2
  54.     IOCS    _B_LOCATE
  55.     lea.l    now_loading(pc),a1
  56.     IOCS    _B_PRINT
  57.     IOCS    _B_CUROFF
  58.  
  59.  
  60.     lea.l    pcg_file,a1            * âXâvâëâCâgâfü[â^âìü[âh
  61.     lea.l    pcg_data,a2
  62.     move.l    #134016,d2
  63.     bsr    mem_load
  64.  
  65.     lea.l    pal_file,a1            * âpâîâbâgâfü[â^âìü[âh
  66.     lea.l    pal_data,a2
  67.     move.l    #672,d2
  68.     bsr    mem_load
  69.  
  70.     lea.l    adpcm_file,a1
  71.     lea.l    adpcm_data,a2
  72.     move.l    #62930,d2
  73.     bsr    mem_load
  74.  
  75.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  76.  
  77.     lea.l    pal_data,a0
  78.     movea.l    a0,a1
  79.     movea.l    #SP_PALETTE+32,a2        * âpâîâbâgâAâhâîâX
  80.  
  81.     move.w    #8-1,d1
  82. 2:
  83.     move.l    (a1)+,(a2)+
  84.     dbra    d1,2b
  85.  
  86.     lea.l    pcg_data,a0
  87.     movea.l    a0,a1
  88.     movea.l    #PCG_UP,a2
  89.  
  90.     adda.l    #CUR,a1                * âJü[â\âïâpâ^ü[âôé¿éµé╤
  91.     move.w    #96-1,d0            * âOâëâtâBâbâNëBé╡éaéfâpâ^ü[âôô]æù
  92. @@:
  93.     move.l    (a1)+,(a2)+
  94.     dbra    d0,@b
  95.  
  96.     movea.l    #PCG_DOWN,a0            * éoéhébé╠âìü[âhÅêù¥é≡ëBé╖
  97.     move.l    #$0108_0108,d3
  98.     move.w    #32-1,d1
  99. 1:
  100.     movea.l    a0,a1
  101.     move.w    #16-1,d2
  102. 2:
  103.     move.l    d3,(a1)+
  104.     dbra    d2,2b
  105.     adda.w    #128,a0
  106.     dbra    d1,1b
  107.  
  108.     movea.l    #$00eb0800,a0            * éaéfò\Īê╩ÆuÉ▌ÆΦ
  109.     clr.w    (a0)+
  110.     clr.w    (a0)
  111.  
  112.     move.w    #$0201,BG_CTRL            * éaéfò\Īéném
  113.  
  114.     clr.l    -(sp)
  115.     clr.l    -(sp)
  116.     pea.l    bg_pic_file
  117.     jsr    _apic_load
  118.     lea.l    12(sp),sp
  119.  
  120.     moveq.l    #1,d1
  121.     moveq.l    #8,d2
  122.     IOCS    _B_LOCATE
  123.     lea.l    now_no(pc),a1
  124.     IOCS    _B_PRINT
  125.     IOCS    _B_CUROFF
  126.  
  127.     rts
  128. *--------------------------------
  129.     .even
  130. now_loading:
  131.     .dc.b    'ô╟é▌ì₧é▌Æåü@é╡é╬é╡é╠é¿æ╥é┐é≡',0
  132.     .even
  133. now_no:
  134.     .dc.b    'ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@',0
  135.     .even
  136. bg_pic_file:
  137.     .dc.b    'KENKA2.PIC',0
  138.     .even
  139. pcg_file:
  140.     .dc.b    'KENKA2.PCG',0
  141.     .even
  142. pal_file:                    * âpâîâbâgâfü[â^âtâ@âCâïâlü[âÇ
  143.     .dc.b    'KENKA2.PAL',0
  144.     .even
  145. adpcm_file:                    * é`écéoébélâfü[â^âtâ@âCâïâlü[âÇ
  146.     .dc.b    'KENKA2.ADP',0
  147.     .even
  148. *--------------------------------
  149.     .bss
  150.     .even
  151. pcg_data:
  152.     .ds.b    134016
  153. pal_data:
  154.     .ds.b    672
  155. adpcm_data:
  156.     .ds.b    62930
  157. *---------------------------------
  158.     .end
  159.